N            equ    5



             org  $1000
start        movea.l #alpha,a0
             movea.l #beta,a1
             move.w #N-1,d1      ; loop counter
x1           move.b (a0)+,(a1)+
             dbra   d1,x1
             nop





              org  $10a0
alpha         dc.b $12,$34,$0,$78,$0
beta          ds.b 5
count         ds.b 1



